← Index
NYTProf Performance Profile   
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 13:01:18 2016
Reported on Fri Jan 8 13:01:36 2016

Filename(eval 1109)[/usr/share/perl5/Sub/Quote.pm:5]
StatementsExecuted 29 statements in 155µs
Eval Invoked At/usr/share/perl5/Sub/Quote.pm line 5
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
133365µs2.71msDBIx::Class::Storage::DBI::::_server_infoDBIx::Class::Storage::DBI::_server_info
11118µs32µsSub::Quote::::BEGIN@5.2972 Sub::Quote::BEGIN@5.2972
1116µs6µsDBIx::Class::Storage::DBI::::BEGIN@11.2973DBIx::Class::Storage::DBI::BEGIN@11.2973
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
22100ns my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
31100ns my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
410s my $orig = ${$_[1]->{"\$orig"}};
52134µs246µs
# spent 32µs (18+14) within Sub::Quote::BEGIN@5.2972 which was called: # once (18µs+14µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 32µs making 1 call to Sub::Quote::BEGIN@5.2972 # spent 14µs making 1 call to warnings::unimport
6
# spent 2.71ms (65µs+2.65) within DBIx::Class::Storage::DBI::_server_info which was called 13 times, avg 209µs/call: # 6 times (51µs+2.30ms) by DBIx::Class::Storage::DBI::mysql::sql_maker at line 46, avg 392µs/call # 6 times (14µs+347µs) by DBIx::Class::Storage::DBI::mysql::sql_maker at line 112 of DBIx/Class/Storage/DBI/mysql.pm, avg 60µs/call # once (100ns+0s) by DBIx::Class::Storage::DBI::mysql::sql_maker at line 56 of Sub/Defer.pm
sub DBIx::Class::Storage::DBI::_server_info {
7 $_QUOTED if 0;
86400ns $_UNQUOTED if 0;
9# BEGIN quote_sub PRELUDE
10package DBIx::Class::Storage::DBI;
11
# spent 6µs within DBIx::Class::Storage::DBI::BEGIN@11.2973 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 16
BEGIN {
1210s $^H = "133090";
131100ns ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU";
141100ns %^H = (
15 );
1610s16µs}
# spent 6µs making 1 call to DBIx::Class::Storage::DBI::BEGIN@11.2973
17# END quote_sub PRELUDE
18
1964µs if (
20 # only fire when invoked on an instance, a valid class-based invocation
21 # would e.g. be setting a default for an inherited accessor
22 ref $_[0]
23 and
24 ! $_[0]->{_driver_determined}
25 and
26 ! $_[0]->{_in_determine_driver}
27 and
28 # if this is a known *setter* - just set it, no need to connect
29 # and determine the driver
30 ( 1 or @_ <= 1 )
31 and
32 # Only try to determine stuff if we have *something* that either is or can
33 # provide a DSN. Allows for bare $schema's generated with a plain ->connect()
34 # to still be marginally useful
35 $_[0]->_dbi_connect_info->[0]
36 ) {
37 $_[0]->_determine_driver;
38
39 # work around http://rt.perl.org/rt3/Public/Bug/Display.html?id=35878
40 goto $_[0]->can("_server_info") unless DBIx::Class::_ENV_::BROKEN_GOTO;
41
42 my $cref = $_[0]->can("_server_info");
43 goto $cref;
44 }
45
46615µs62.35ms goto $orig;
# spent 2.35ms making 6 calls to DBIx::Class::Storage::DBI::_server_info, avg 392µs/call
47 }
481100ns $$_UNQUOTED = \&DBIx::Class::Storage::DBI::_server_info
49}
501100ns1;
51
52;